﻿Type=Activity
Version=5.8
ModulesStructureVersion=1
B4A=true
@EndOfDesignText@
#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private sv As ScrollView
	Private bivheaderbg As BetterImageView
	Private ivback As ImageView
	Private lblteachername As Label
	Private rivteacherhader As RIV
	Private clvteacherinfo As clsCustomListView
	Private pmain As Panel
	Private itemvalue As Label
	Private itemname As Label
	Private ivrightarr As ImageView
	Private clvkclb As clsCustomListView
	Private itemkcname As Label
	Private itemkcprice As Label
	Private btnkcbaoming As Label
	Private pkc As Panel
	Private ivisban As ImageView
	Private itemviewalllbl As Label
	Private clvjinqi As clsCustomListView
	Private itemstuheaderriv As RIV
	Private itemjinqistuname As Label
	Private itemjinqistugrade As Label
	Private itemjinqievaltext As Label
	Private clvkcpj As clsCustomListView
	Private pyqteachername As Label
	Private pyqteach As Label
	Private pyqcontent As Label
	Private pyqteacherheader As ImageView
	Private clvpyq As clsCustomListView
	Private curTecId As Int
	Private lbljiaoling As Label
	Private lblhaopin As Label
	Private lblkeshi As Label
	Private lblxuesheng As Label
	Private lblteachkemu As Label
	Private ivteachersex As ImageView
	Private pjinqi As Panel
	Private itemjinqiiv As ImageView
	Private btnguanzhu As Button
	Private bIsFav As Boolean
	Private ppinjia As Panel
	Private pdongtai As Panel
	Private lbljinqinum As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("layteacherdetail")
	initviews
End Sub
Private Sub initviews
	curTecId=g_store.conf.Get("tecid")
	bivheaderbg.ScaleType=bivheaderbg.SCALETYPE_FIT_XY
	'加载默认背景图
	comm.loadimg("http://app.modao.cc/uploads/images/2264967/raw_1453971018.jpeg",bivheaderbg)
	ivback.BringToFront
	reqTecDetail
	'comm.loadimg("http://app.modao.cc/uploads/images/2268885/raw_1454036696.jpeg",rivteacherhader.innerRIV)
	'rivteacherhader.innerRIV.ImageBitmap=comm.getRoundImgRS(LoadBitmap(File.DirAssets,"teacher.png"),5dip)
	'rivteacherhader.ImageBitmap=rivteacherhader.getCroppedRoundBitmap(comm.uil.loadimgSync(comm.S_TESTTEACHERHEADER),50dip)
'	rivteacherhader.ImageBitmap=LoadBitmapSample(File.DirAssets,"teacher.png",100,100)
'	rivteacherhader.BringToFront
'	
	'构建clvteacherinfo
	Dim nw As Int=100%x,nh As Int=60dip,nhKC As Int=75dip,nhAll=45dip As Int
	
	
	'构建锦旗
'	clvjinqi.dividerHeight=1dip
'	Dim jq As Jinqi
'	jq.Initialize
'	jq.evalStr="十年树木 测试语句 2016-03-25"
'	jq.sendby.Initialize
'	jq.sendby.name="王子豪"
'	jq.sendby.grade="小学三年级"
'	Dim nhJQ As Int=90dip
'	clvjinqi.Add(CreateItemJinqi(jq,nw,nhJQ,True),nhJQ,0)
'	clvjinqi.Add(CreateItemViewAll("查看全部锦旗",nw,nhAll),nhAll,1)
	'构建评价
'	Dim jq As Jinqi
'	jq.Initialize
'	jq.evalStr="老师教的很好，孩子学的很快 2016-03-25"
'	jq.sendby.Initialize
'	jq.sendby.name="王子豪"
'	jq.sendby.grade="小学三年级"
	


End Sub
#Region network
Sub reqTecDetail
	'ProgressDialogShow("正在获取详情")
	ParseHelper.doGetReq(Me,"reqtec",comm.getApi(comm.apiIdx.REQTEACHERDETAIL),Array As String("js_id",curTecId))
End Sub
Sub JobDone(thj As HttpJob)
	ProgressDialogHide
	If thj.Success Then
		Dim str As String=thj.GetString
		Log(str)
		Dim nr As netRes=ParseHelper.getStatusData(str)
		If nr.nCode=200 Then
			Select thj.JobName
			Case "reqtec"
				parseTeacherDetail(str)
			Case "addfav"
				comm.TL("添加收藏成功")
			Case "delfav"
				comm.TL("删除收藏成功")
			End Select
		Else
			comm.TL(thj.JobName&"错误:"&nr.sData)
		End If
	Else
		comm.TL("网络错误:"&thj.ErrorMessage)
	End If
	thj.Release
End Sub
#End Region
Private Sub parseTeacherDetail(str As String)
	Dim parser As JSONParser 
	parser.Initialize(str) 
	g_store.put("lasttecjson",str)
	Dim root As Map = parser.NextObject 
	Dim data As List = root.Get("data") 
	Dim once As Boolean=False
	clvkclb.Clear
	Dim nHDiv As Int=20dip
	Dim nw As Int=100%x,nh As Int=60dip,nhKC As Int=75dip,nhAll=45dip As Int
	Dim tec As Teacher
	tec.Initialize
	
	For Each coldata As Map In data 
	    If once Then Exit
		once=True
		Dim note As String = coldata.Get("note") 
	    Dim city As String = coldata.Get("city") 
	    Dim is_user_note As String = coldata.Get("is_user_note") 
	    Dim is_xw As String = coldata.Get("is_xw") 
	    Dim autograph As String = coldata.Get("autograph") 
		lbljiaoling.Text=autograph
	    Dim is_xw_note As String = coldata.Get("is_xw_note") 
	    Dim usertel As String = coldata.Get("usertel") 
		tec.mobile=usertel
		Dim js_shangmen As String = coldata.Get("js_shangmen") 
		Dim xs_shangmen As String = coldata.Get("xs_shangmen") 
		Dim xieshang As String = coldata.Get("xieshang") 
	    Dim experience As String = coldata.Get("experience") 
	    Dim hp_lv As String = coldata.Get("hp_lv") 
		lblhaopin.Text="好评"&CRLF&hp_lv
		Dim guanzhu As String = coldata.Get("guanzhu") 
		If guanzhu.EqualsIgnoreCase("1") Then
			comm.setFA(btnguanzhu,"fa-star","关注")
			bIsFav=True
		Else
			comm.setFA(btnguanzhu,"fa-star-o","关注")
			bIsFav=False
		End If
		
	    Dim dongtai As List = coldata.Get("dongtai") 
		If dongtai.IsInitialized And dongtai.Size>0 Then
			For Each coldongtai As Map In dongtai 
		        Dim dongtai_content As String = coldongtai.Get("dongtai_content") 
		        Dim dongtai_addtime As String = coldongtai.Get("dongtai_addtime") 
		        Dim zan As List = coldongtai.Get("zan") 
		        For Each colzan As String In zan 
					Log("zan:"&colzan)
		        Next 
		        Dim dongtai_is_he As String = coldongtai.Get("dongtai_is_he") 
		        Dim js_id As String = coldongtai.Get("js_id") 
		        Dim dongtai_photo As String = coldongtai.Get("dongtai_photo") 
		        Dim dt_id As String = coldongtai.Get("dt_id") 
					'构建朋友圈
				Dim nhPYQ As Int=100dip
				Dim ts As String=dongtai_content
'				Dim tec As Teacher
'				tec.Initialize
'				tec.nickname=
				clvpyq.Add(CreateItemPYQ("张老师","初中 英语",ts,nw,nhPYQ),nhPYQ,0)
		    Next 	
			
		End If
	    clvpyq.Add(CreateItemViewAll("查看全部动态",nw,nhAll),nhAll,1)
	    Dim jianjie As String = coldata.Get("jianjie") 
	    Dim stu_c As String = coldata.Get("stu_c") 
		lblxuesheng.Text="学生"&CRLF&stu_c
	    Dim is_zs As String = coldata.Get("is_zs") 
	    Dim fl_title As String = coldata.Get("fl_title") 
	    Dim fmode As String = coldata.Get("fmode") 
	    Dim js_id As String = coldata.Get("js_id") 
		tec.ID=js_id
	    Dim id As String = coldata.Get("id") 
	    Dim hp_c As String = coldata.Get("hp_c") 
	    Dim is_user As String = coldata.Get("is_user") 
	    Dim is_zg As String = coldata.Get("is_zg") 
	    Dim image As String = comm.combinPic(coldata.Get("image"))
		If image.Length>4 Then 
			comm.loadimg(image,rivteacherhader)
			rivteacherhader.BringToFront
		End If
		
	    Dim js_xj As String = coldata.Get("js_xj") 
	    Dim address As String = coldata.Get("address") 
	    Dim sex As String = coldata.Get("sex") 
		
	    Dim locking As String = coldata.Get("locking") 
	    Dim photo As List = coldata.Get("photo") '暂时只处理一张图
		If photo.Size>0 Then comm.loadimg(photo.Get(0),bivheaderbg)
	    
	    Dim is_zs_note As String = coldata.Get("is_zs_note") 
	    Dim quyu As String = coldata.Get("quyu") 
	    Dim addtime As String = coldata.Get("addtime") 
	    Dim grade_teache As String = coldata.Get("grade") 
	    Dim is_sh As String = coldata.Get("is_sh") 
	    Dim hpz_c As String = coldata.Get("hpz_c") 
	    Dim is_zg_note As String = coldata.Get("is_zg_note") 
	    Dim kechen As List = coldata.Get("kechen") 
		'构建课程列表
		
		clvkclb.dividerHeight=1dip
		clvkclb.Add(CreateItemCommon("授课年级:",grade_teache,nw,nh,False),nh,0)
		clvkclb.Add(CreateItemCommon("授课区域:",quyu,nw,nh,False),nh,0)
		Dim skfs As String'授课方式
		If js_shangmen.EqualsIgnoreCase("1") Then skfs="老师上门"
		If xs_shangmen.EqualsIgnoreCase("1") Then skfs=skfs&" 学生上门"
		If xieshang.EqualsIgnoreCase("1") Then skfs=skfs&" 协商地址"
		clvkclb.Add(CreateItemCommon("授课方式:",skfs,nw,nh,False),nh,0)
		Dim numKC As Int=0
		If kechen.IsInitialized And kechen.Size>0 Then
			numKC=kechen.Size
			 For Each colkechen As Map In kechen 
		        Dim kc_start_time As String = colkechen.Get("kc_start_time") 
		        Dim kc_end_time As String = colkechen.Get("kc_end_time") 
		        Dim is_youhui As String = colkechen.Get("is_youhui") 
		        Dim kc_title As String = colkechen.Get("kc_title") 
		        Dim kc_money As String = colkechen.Get("kc_money") 
		        Dim kc_mode As String = colkechen.Get("kc_mode") 
		        Dim kc_grade As String = colkechen.Get("kc_grade") 
		        Dim kc_money_st As String = colkechen.Get("kc_money_st") 
		        Dim addtime As String = colkechen.Get("addtime") 
		        Dim js_id As String = colkechen.Get("js_id") 
		        Dim kc_type As String = colkechen.Get("kc_type") 
		        Dim id As String = colkechen.Get("id") 
		        Dim kc_money_bk As String = colkechen.Get("kc_money_bk") 
		        Dim kc_address As String = colkechen.Get("kc_address") 
		        Dim kc_hour As String = colkechen.Get("kc_hour") 
		        Dim status As String = colkechen.Get("status") 
				'构建课程列表
				Dim kci As kcItem
				kci.Initialize
				kci.tecImg=image
				'kci.shangmenfangshi=sd_mode
				kci.kemu=fl_title
				'kci.time=sd_end_time
				kci.kctitle=kc_title
				kci.status=status
				kci.sex=sex
				kci.kctype=kc_type
				kci.price_lssm=kc_money
				kci.price_xssm=kc_money_st
				kci.price_xsdz=kc_money_bk
				kci.hours=kc_hour
				kci.kcid=id
				kci.addr=kc_address
				If kc_type.EqualsIgnoreCase("3") Then
					clvkclb.Add(CreateItemkc(kc_title,$"$1.0{kci.price_xsdz}元/小时"$,nw,nhKC,True),nhKC,kci)
'				else if kc_type.EqualsIgnoreCase("1") Then
'					kci.price_xssm=kc_money_st
'					clvkclb.Add(CreateItemkc(kc_title,$"$1.0{kci.price}元/小时"$,nw,nhKC,False),nhKC,kci)
				Else
					clvkclb.Add(CreateItemkc(kc_title,$"$1.0{kci.price_lssm}元/小时"$,nw,nhKC,False),nhKC,kci)
				End If
				
	'			clvkclb.Add(CreateItemkc("体验课2","300元/小时",nw,nhKC,False),nhKC,2)
	'			clvkclb.Add(CreateItemkc("辅导班","300元/小时",nw,nhKC,True),nhKC,3)
				
		    Next 
		End If
	    pkc.Height=pkc.Height-(nhKC*(3-numKC))
		Dim kci As kcItem
		kci.Initialize
		kci.kcid=-1
		clvkclb.Add(CreateItemViewAll("查看全部课程",nw,nhAll),nhAll,kci)
		Dim banner As List = coldata.Get("banner") 
		Dim nw As Int=100%x,nh As Int=60dip,nhKC As Int=75dip,nhAll=45dip As Int
	    For Each colbanner As Map In banner 
	        Dim into_money As String = colbanner.Get("into_money") 
	        Dim city As String = colbanner.Get("city") 
			Dim image As String = colbanner.Get("image") 
	        Dim keshi As String = colbanner.Get("keshi") 
	        Dim remark As String = colbanner.Get("remark") 
	        Dim time As String = colbanner.Get("time") 
	        Dim usertel As String = colbanner.Get("usertel") 
	        Dim order_id As String = colbanner.Get("order_id") 
	        Dim nianji As String = colbanner.Get("nianji") 
	        Dim hy_school As String = colbanner.Get("hy_school") 
	        Dim username As String = colbanner.Get("username") 
			pjinqi.Top=pkc.Top+nHDiv+pkc.Height
			'构建锦旗
			clvjinqi.dividerHeight=1dip
			Dim jq As Jinqi
			jq.Initialize
			jq.evalStr=remark&" "&time
			jq.sendby.Initialize
			jq.sendby.name=username
			jq.sendby.grade=nianji
			jq.sendby.img=image
			Dim nhJQ As Int=90dip
			clvjinqi.Add(CreateItemJinqi(jq,nw,nhJQ,True),nhJQ,0)
	    Next 
		lbljinqinum.Text="获得了"&banner.Size&"面锦旗"
		clvjinqi.Add(CreateItemViewAll("查看全部锦旗",nw,nhAll),nhAll,-1)
	    Dim pl As List = coldata.Get("pl") 
		If pl.Size>0 Then
	    	Dim colpl As Map=pl.Get(0)
	        Dim image As String = colpl.Get("image") 
	        Dim city As String = colpl.Get("city") 
	        Dim comment_xj As String = colpl.Get("comment_xj") 
	        Dim usertel As String = colpl.Get("usertel") 
	        Dim comment_addtime As String = colpl.Get("comment_addtime") 
	        Dim comment_id As String = colpl.Get("comment_id") 
	        Dim nianji As String = colpl.Get("nianji") 
	        Dim hy_school As String = colpl.Get("hy_school") 
	        Dim comment_huifu_id As String = colpl.Get("comment_huifu_id") 
	        Dim kc_id As String = colpl.Get("kc_id") 
	        Dim children As String = colpl.Get("children") 
	        Dim comment_type As String = colpl.Get("comment_type") 
	        Dim comment_content As String = colpl.Get("comment_content") 
	        Dim id As String = colpl.Get("id") 
	        Dim username As String = colpl.Get("username") 
			Dim nhJQ As Int=90dip,nhEvalItem As Int=140dip
			Dim jq As Jinqi
			jq.Initialize
			jq.evalStr=comment_content
			jq.sendby.Initialize
			jq.sendby.img=image
			jq.sDate=comment_addtime
			jq.jqType=comment_type
			jq.sendby.grade=nianji
			jq.sendby.school=hy_school
			jq.sendby.name=username
			clvkcpj.Add(CreateItemEval(jq,nw,nhEvalItem,False),nhEvalItem,id)
	    End If

		'ppinjia.Top=pjinqi.Top+nHDiv+ppinjia.Height
		ppinjia.Top=pjinqi.Top+nHDiv+pjinqi.Height
		clvkcpj.Add(CreateItemViewAll("查看全部评价",nw,nhAll),nhAll,-1)
		ppinjia.Height=ppinjia.Height+5dip
	    Dim banner_count As String = coldata.Get("banner_count") 
	    Dim seniority As String = coldata.Get("seniority") 
		lbljiaoling.Text="教龄"&CRLF&seniority&"年"
	    Dim username As String = coldata.Get("username") 
		tec.nickname=username
		lblteachername.Text=username
	    Dim is_tuijian As String = coldata.Get("is_tuijian") 
		lblteachkemu.Text=city&" "&fl_title
		lblkeshi.Text="课时"&CRLF&keshi
		If sex.EqualsIgnoreCase("1") Then
			ivteachersex.Bitmap=comm.bmpSexMan
		Else
			ivteachersex.Bitmap=comm.bmpSexWoman
		End If
		clvteacherinfo.dividerHeight=1dip
		clvteacherinfo.Add(CreateItemCommon("认证","",nw,nh,True),nh,0)
		clvteacherinfo.Add(CreateItemCommon("地址",address,nw,nh,True),nh,1)
		clvteacherinfo.Add(CreateItemCommon("简介",experience,nw,nh,True),nh,2)
		
	Next 
	Dim status As String = root.Get("status") 
	'最后重组pmain
	pdongtai.Top=ppinjia.Top+nHDiv+ppinjia.Height
	pmain.Height=pdongtai.Top+pdongtai.Height+nHDiv*6
	pmain.RemoveView
	sv.Panel.AddView(pmain,0,0,sv.Width,pmain.Height)
	sv.Panel.Height=pmain.Height-120dip
	g_store.put("curtecobj",tec)
End Sub
Private Sub CreateItemkc(str As String,val As String,w As Int,h As Int,isBan As Boolean) As Panel
	Dim pp As Panel
	pp.Initialize("")
	Activity.AddView(pp,0,0,w,h)
	pp.LoadLayout("itemteacherdetailkc")
	ivisban.Visible=isBan
	pp.RemoveView
	itemkcname.Text=str
	itemkcprice.Text=val
	Return pp
End Sub
Private Sub CreateItemViewAll(str As String,w As Int,h As Int) As Panel
	Dim pp As Panel
	pp.Initialize("")
	Activity.AddView(pp,0,0,w,h)
	pp.LoadLayout("itemviewall")
	itemviewalllbl.Text=str&" >"
	pp.RemoveView
	Return pp
End Sub
Private Sub CreateItemEval(jqi As Jinqi ,w As Int,h As Int,hasJqImg As Boolean) As Panel
	Dim p As Panel
	p.Initialize("")
	Activity.AddView(p,0,0,w,h)
	p.LoadLayout("itemeval")
	
	Dim tp As Panel=p.GetView(0)
	Dim tpriv As Panel=tp.GetView(0)
	Dim riv As RIV=tpriv.GetView(0)
	comm.loadimg(jqi.sendby.img,riv)
	Dim stuname As Label=tp.GetView(1)
	stuname.Text=jqi.sendby.name
	Log(jqi.sendby)
	Dim evaltype As Label=tp.GetView(2)
	Select jqi.jqType'好中差
	Case 1
		comm.setFA(evaltype,"fa-heart-o","好评")
		evaltype.TextColor=Colors.Red
	Case 2
		comm.setFA(evaltype,"fa-heart-o","中评")
		evaltype.TextColor=comm.N_COLOR_ORANGE
	Case 3
		comm.setFA(evaltype,"fa-heart-o","差评")
		evaltype.TextColor=Colors.Gray
	End Select
	Dim school As Label=tp.GetView(3)
	school.Text=jqi.sendby.city&" "&jqi.sendby.school&" "&jqi.sendby.grade
	Dim ratestr As Label=tp.GetView(4)
	ratestr.Text=jqi.evalStr
	p.RemoveView
	Return p
End Sub
Private Sub CreateItemJinqi(jq As Jinqi ,w As Int,h As Int,hasJqImg As Boolean) As Panel
	Dim p As Panel
	p.Initialize("")
	Activity.AddView(p,0,0,w,h)
	p.LoadLayout("itemjinqi")
	p.RemoveView
	If jq.sendby.img.Length>0 Then
		comm.loadimg(jq.sendby.img,itemstuheaderriv)
	Else
		comm.loadimg(comm.S_TESTMYHEADER,itemstuheaderriv)
	End If
	itemjinqiiv.Visible=hasJqImg
	itemjinqievaltext.Text=jq.evalStr
	itemjinqistugrade.Text=jq.sendby.grade
	itemjinqistuname.Text=jq.sendby.name
	Return p
End Sub
Private Sub CreateItemCommon(str As String,val As String,w As Int,h As Int,hasArr As Boolean) As Panel
	Dim p As Panel
	p.Initialize("")
	Activity.AddView(p,0,0,w,h)
	p.LoadLayout("itemmodifymyinfocommon")
	ivrightarr.Visible=hasArr
	p.RemoveView
	itemname.Text=str
	itemvalue.Text=val
	Return p
End Sub
Private Sub CreateItemPYQ(name As String,teach As String,dtStr As String,w As Int,h As Int) As Panel
	Dim p As Panel
	p.Initialize("")
	Activity.AddView(p,0,0,w,h)
	p.LoadLayout("itempyq")
	p.RemoveView
	pyqteacherheader.Bitmap=LoadBitmapSample(File.DirAssets,"teacher.png",50,50)
	pyqteach.Text=teach
	pyqteachername.Text=name
	pyqcontent.Text=dtStr
	Return p
End Sub
Sub ivback_Click
	Activity.Finish
End Sub
Sub Activity_Resume
	'刷新一下
	curTecId=g_store.conf.Get("tecid")
'	reqTecDetail
End Sub

Sub Activity_Pause (UserClosed As Boolean)
	
End Sub


Sub btnzixun_Click
	
End Sub
Private Sub reqaddfavteacher(tecid As Int)
	ParseHelper.doPostReqArr(Me,"addfav",comm.getApi(comm.apiIdx.ADDFAVTEACHER),Array As String("js_id",tecid),"")
End Sub
Private Sub reqdelfavteacher(tecids As String)
	ParseHelper.doGetReq(Me,"delfav",comm.getApi(comm.apiIdx.DELFAVTEACHER),Array As String("id",tecids))
End Sub
Sub btnguanzhu_Click
	If g_store.conf.GetDefault("islogin",False) Then
		If bIsFav Then
			comm.setFA(btnguanzhu,"fa-star-o","关注")
			'btnguanzhu.Text="☆关注"	
			reqdelfavteacher(curTecId)
		Else
			comm.setFA(btnguanzhu,"fa-star","关注")
			reqaddfavteacher(curTecId)
		End If	
	Else
		comm.T("尚未登录无法添加收藏")
	End If
	bIsFav=Not(bIsFav)
End Sub

Sub btnbaoming_Click
	StartActivity(actAllKcListByTeacher)
End Sub

Sub clvteacherinfo_ItemClick (Index As Int, Value As Object)
	Select Value
		Case 0
			'认证
			Dim vw As wvUrl
			vw.Initialize
			vw.title="认证信息"
			vw.Url="http://dict.cn/"
			comm.startWV(vw)
		Case 1
			Dim amap As clsAMapUri
			amap.Initialize
			amap.BiaoZhuSingle("87.546873","43.85675","蜘蛛山")
		Case 2
			'简介
			comm.ShowUrl("www.cctv.com")
	End Select
End Sub

Sub clvkclb_ItemClick (Index As Int, Value As Object)
	'除了-1之外都点击进入购买支付页面
	Dim kci As kcItem=Value
	Select kci.kcid
	Case -1'全部
		StartActivity(actAllKcListByTeacher)
	Case Else
		If kci.kctype.EqualsIgnoreCase("3") Then
			'辅导班
			g_store.put("curkc",kci)
			StartActivity(actBuyFudanKC)
		Else
			g_store.put("curkc",kci)
			StartActivity(actBuy1v1Kc)
		End If
		
	End Select
End Sub

Sub clvjinqi_ItemClick (Index As Int, Value As Object)
	Select Value
		Case -1'全部
			StartActivity(actAllJinqiByTeacher)
		Case 1
			StartActivity(actAllJinqiByTeacher)	
	End Select
End Sub

Sub clvkcpj_ItemClick (Index As Int, Value As Object)
	Select Value
		Case -1'全部
			StartActivity(actEvalListByTeacher)
		Case 1
			StartActivity(actEvalListByTeacher)
	End Select
End Sub

Sub clvpyq_ItemClick (Index As Int, Value As Object)
	Select Value
		Case 1
			StartActivity(actPyqByTeacher)
	End Select
End Sub

Sub btnsendjinqidirectly_Click
	StartActivity(actBuyJinqi)
End Sub